with xpa.net.tcp;
with ada.text_io;

procedure test_tcp is
	tcp_data: aliased xpa.net.tcp.tcp_type;
	tcp: xpa.net.tcp.tcp_access := null;
	--tcp: xpa.net.tcp.tcp_access := tcp_data'unchecked_access;
begin

	xpa.net.tcp.open (tcp, xpa.net.tcp.binary);
	xpa.net.tcp.close (tcp);

	xpa.net.tcp.open (tcp, xpa.net.tcp.binary);
	xpa.net.tcp.close (tcp);

exception
	when others => 
		ada.text_io.put_line ("fuck, exception occurred");
end test_tcp;

